﻿Public Class frmActualizaCuentas

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim oFD As New OpenFileDialog
        With oFD
            .Title = "Seleccionar fichero"
            .Filter = "Ficheros de texto (*.txt;*.ini)|*.txt;*.ini" & _
                      "|Todos los ficheros (*.*)|*.*"
            .FileName = Me.txtFile.Text
            If .ShowDialog = System.Windows.Forms.DialogResult.OK Then
                Me.txtFile.Text = .FileName
            End If
        End With
        CargarArchivo()
    End Sub
    Sub CargarArchivo()

        Dim str() As String

        If txtFile.Text <> "" Then 'Txtfichero contiene el nombre y la ubicacion del archivo
            Try
                Dim tr As System.IO.StreamReader
                tr = My.Computer.FileSystem.OpenTextFileReader(Me.txtFile.Text)
                Dim texto As String

                Do
                    texto = tr.ReadLine()
                    str = Split(texto, "|", 4) 'Aqui esta el error
                    If texto Is Nothing Then
                        Exit Do
                    End If
                    Call SetSqlCitra("UPDATE CuentasContables SET cImpuestos1=" & str(2) & ",cImpuestos2=" & str(3) & " WHERE Cuenta='" & str(1) & "' AND Abreviacion='" & str(0) & "'")
                    lblStatus.Text = "Actualizando cuenta: " & str(1)
                    Application.DoEvents()

                    str = Nothing

                Loop Until texto Is Nothing
                MsgBox("El archivo se importó correctamente", MsgBoxStyle.Information, "Aviso")

            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        Else
            MsgBox("Seleccione un archivo a importar", MsgBoxStyle.Exclamation, "Aviso")
        End If
    End Sub
End Class